home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / imb9011.zip / TCHAINED.BAS < prev    next >
BASIC Source File  |  1990-11-01  |  418b  |  30 lines
  1. 'Support module TCHAINED.BAS
  2.  
  3. '$INCLUDE: 'TCHAINED.BI'
  4.  
  5. NoShared
  6. ShareBlank
  7.  
  8. END
  9.  
  10. SUB NoShared
  11.  
  12. PRINT "Entering NoShared-----------------------------"
  13. PRINT
  14. PRINT "Blank Common -- X$="; X$, "Y$="; Y$, "Z$="; Z$
  15. PRINT
  16.  
  17. END SUB
  18.  
  19. SUB ShareBlank
  20.  
  21. SHARED X$, Z$
  22.  
  23. PRINT "Entering ShareBlank --------------------------"
  24. PRINT
  25. PRINT "Blank Common -- X$="; X$, "Y$="; Y$, "Z$="; Z$
  26. PRINT
  27.  
  28. END SUB
  29.  
  30.